home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / G-Games / (c)gd.d64 / star trek 84.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  33KB  |  913 lines
  1. 2 CLR
  2. 5 RESTORE
  3. 6 GOSUB15000
  4. 10 REM *** STAR TREK 84 ***
  5. 11 REM *** REQUIRES 38K RAM
  6. 20 REM *** THIS IS A REVISED VERSION OF THE STAR TREK LISTED IN
  7. 21 REM *** BASIC COMPUTER GAMES EDITED BY DAVID AHL
  8. 22 REM *** THIS REVISION HAS ADDED ON MORE OPTIONS
  9. 30 REM *** REVISION BY MIKE OMOTANI, APRIL 1984
  10. 50 Z$="                          "
  11. 60 DIM G(8,8),C(9,2),K(3,3),N(5),Z(8,8),D(9),DL(5)
  12. 70 D0=0:E=3000:E0=E:S=1000
  13. 75 P=10:P0=P:S9=300:S=0:B9=0:K9=0:X$="":X0$=" IS ":SJ=2:DR=2:MN=2:S=1000
  14. 76 RB=5:PR=1
  15. 80 DEF FND(D)=SQR((K(I,1)-S1)^2+(K(I,2)-S2)^2)
  16. 90 DEF FNR(R)=INT(RND(.)*9+1)
  17. 92 DEF FNVV(V)=INT(RND(.)*8+1)
  18. 95 GOSUB11200:PRINT
  19. 100 REM REFITTING THE ENTERPRISE
  20. 105 PRINT"DO YOU WISH TO REFIT THE ENTERPRISE":INPUT"(Y/N)";E$
  21. 110 IFLEFT$(E$,1)="N"THEN 350
  22. 115 PRINT:PRINT"IN BRACKETS ARE SHOWN THE MAXIMUM":PRINT"NUMBER POSSIBLE AND THE COST":PRINT
  23. 120 INPUT"TORPEDO CAPACITY (20,150) ";P0:P0=INT(P0):P=P0
  24. 125 IFP0<0ORP0>20THEN120
  25. 130 CO=P0*150:CR=5000-CO
  26. 135 PRINT"TOTAL COST = ";INT(CO):PRINT"CREDIT REMAINING = ";INT(CR)
  27. 140 PRINT:INPUT"DROIDS (10,250) ";DR:DR=INT(DR)
  28. 145 IF DR<0ORDR>10THEN140
  29. 150 CO=CO+DR*250:CR=CR-DR*250
  30. 155 PRINT"TOTAL COST = ";INT(CO):PRINT"CREDIT REMAINING = ";INT(CR)
  31. 160 IF CO>5000 THEN PRINT"START OVER TURD!!":PRINT:GOTO120
  32. 165 PRINT:INPUT "SPACE JUMPS (5,350) ";SJ:SJ=INT(SJ)
  33. 170 IF SJ<0ORSJ>5THEN165
  34. 175 CO=CO+SJ*350:CR=CR-SJ*350
  35. 180 PRINT"TOTAL COST = ";INT(CO):PRINT"CREDIT REMAINING = ";INT(CR)
  36. 185 IF CO>5000 THEN PRINT"START OVER TURD!!":PRINT:GOTO120
  37. 190 PRINT:INPUT"SPACE MINES (5,500) ";MN:MN=INT(MN)
  38. 195 IFMN<0ORMN>5THEN190
  39. 200 CO=CO+MN*500:CR=CR-MN*500
  40. 205 PRINT"TOTAL COST = ";INT(CO):PRINT"CREDIT REMAINING = ";INT(CR)
  41. 210 IF CO>5000 THEN PRINT"START OVER TURD!!":PRINT:GOTO120
  42. 215 PRINT:INPUT"LR PROBES (5,300) ";PR:PR=INT(PR)
  43. 220 IFPR<0ORPR>5THEN215
  44. 225 CO=CO+PR*300:CR=CR-PR*300
  45. 230 PRINT"TOTAL COST = ";INT(CO):PRINT"CREDIT REMAINING = ";INT(CR)
  46. 235 IF CO>5000 THEN PRINT"START OVER TURD!!":PRINT:GOTO120
  47. 240 PRINT:INPUT"REPAIR ROBOT (10,200) ";RB:RB=INT(RB)
  48. 245 IFRB<0ORRB>10THEN240
  49. 250 CO=CO+RB*200:CR=CR-RB*200
  50. 255 PRINT"TOTAL COST = ";INT(CO):PRINT"CREDIT REMAINING = ";INT(CR)
  51. 260 IF CO>5000 THEN PRINT"START OVER TURD!!":PRINT:GOTO120
  52. 265 GOSUB 11200:GOTO 105
  53. 350 REM SETTING UP LEVELS OF DIFFICULTY (LD) AND PARAMETERS (DL(5)
  54. 355 PRINT"[147]":PRINT:PRINT"WHAT LEVEL DO YOU WANT TO PLAY?":PRINT"(1 - EASY, 15 - DIFFICULT)":PRINT
  55. 360 INPUT "LEVEL (1-15) ";LD:PRINT
  56. 365 IFLD<1ORLD>15THEN360
  57. 370 IFLD<=3THENPRINT"CLIMB UP ON MY KNEE SONNY BOY.":PRINT
  58. 372 IFLD>3ANDLD<=7THENPRINT"GET YOUR MOMMY TO HOLD YOUR HAND!":PRINT
  59. 375 IFLD>7ANDLD<11THENPRINT"YOU WILD AND CRAZY GUY!!":PRINT
  60. 378 IFLD>10ANDLD<15THENPRINT"TALK ABOUT DELUSIONS OF GRANDEUR!!":PRINT
  61. 379 IFLD=15THENPRINT"EL LOCO RIDES AGAIN!!":PRINT
  62. 380 FOR I=1TO15
  63. 382 IFI>LD THEN 395
  64. 384 READ DL(1),DL(2),DL(3),DL(4),DL(5),S9
  65. 385 IF I=LD THENS9=S9+50*RND(.)
  66. 395 NEXTI
  67. 400 REM TIME TO DESTROY KLINGONS
  68. 405 T=INT(RND(.)*20+20)*100:T0=T:T9=20+LD/2+INT(RND(.)*10)
  69. 480 REM INITIALIZE ENTERPRISE'S POSITION76 RB=3:PR=1
  70. 490 Q1=FNVV(1):Q2=FNVV(1):S1=FNVV(1):S2=FNVV(1)
  71. 530 FOR I=1TO9:C(I,1)=0:C(I,2)=0:NEXT I
  72. 540 C(3,1)=-1:C(2,1)=-1:C(4,1)=-1:C(4,2)=-1:C(5,2)=-1:C(6,2)=-1
  73. 600 C(1,2)=1:C(2,2)=1:C(6,1)=1:C(7,1)=1:C(8,1)=1:C(8,2)=1:C(9,2)=1
  74. 622 AB$="***"
  75. 670 FOR I=1TO9: D(I)=0: NEXT I
  76. 710 A1$="NAVSRSLRSPHATORSHEDAMCOMXXXWRP"
  77. 720 B1$="SHDRESSHTSPMSPJDRDROBCLKLRPMIN"
  78. 810 REM SETUP WHAT EXISTS IN GALAXY
  79. 820 FOR I=1TO8:FORJ=1TO8:K3=0:Z(I,J)=0:R1=RND(.)
  80. 850 IFR1>DL(1)THENK3=3:K9=K9+3:GOTO 980
  81. 860 IFR1>DL(2)THENK3=2:K9=K9+2:GOTO 980
  82. 870 IFR1>DL(3)THENK3=1:K9=K9+1
  83. 980 B3=0:IFRND(.)>DL(4)THENB3=1:B9=B9+1
  84. 1040 G(I,J)=K3*100+B3*10+FNVV(1):NEXTJ:NEXTI:IFK9>T9+15THENT9=T9+5
  85. 1100 IF B9<>0THEN1200
  86. 1150 IF G(Q1,Q2)<200THENG(Q1,Q2)=G(Q1,Q2)+100:K9=K9+1
  87. 1160 B9=1:G(Q1,Q2)=G(Q1,Q2)+10:Q1=INT(8*RND(.)+1):Q2=INT(8*RND(.)+1)
  88. 1200 K7=K9:IFB9<>1THENX$="S":X0$=" ARE "
  89. 1210 PRINT"[147]"
  90. 1230 PRINT"YOUR ORDERS ARE AS FOLLOWS:"
  91. 1240 PRINT"     DESTROY THE";K9;"KLINGON"
  92. 1241 PRINT"WARSHIPS WHICH HAVE INVADED"
  93. 1250 PRINT "THE GALAXY BEFORE THEY CAN"
  94. 1251 PRINT"ATTACK FEDERATION HEADQUARTERS"
  95. 1260 PRINT"STARDATE";T0+T9;"  THIS GIVES YOU"
  96. 1261 PRINTT9;"DAYS.  THERE";X0$;"  ";B9
  97. 1270 PRINT"STARBASE";X$;" IN THE GALAXY FOR"
  98. 1271 PRINT"RESUPPLYING YOUR SHIP"
  99. 1280 FORII=1TO500:AA=0:NEXTII
  100. 1310 REM HERE ANY TIME NEW QUADRANT ENTERED
  101. 1320 Z4=Q1:Z5=Q2:K3=0:B3=0:S3=0:G5=0:D4=RND(.)*.5:Z(Q1,Q2)=G(Q1,Q2)
  102. 1390 IF Q1<1ORQ1>8ORQ2  <1ORQ2>8THEN1600
  103. 1430 GOSUB9030:PRINT:IF T0<>T THEN 1490
  104. 1460 MO=1:GOTO 9500
  105. 1462 MO=MO+1:PRINT"YOUR MISSION BEGINS WITH YOUR STARSHIP"
  106. 1470 PRINT"LOCATED IN THE GALACTIC QUADRANT ,"
  107. 1471 PRINT"'";G2$;"',":GOTO1500
  108. 1490 PRINT:PRINT"NOW ENTERING GALACTIC QUADRANT . . .":PRINTTAB(5);G2$
  109. 1500 PRINT:K3=INT(G(Q1,Q2)*.01):B3=INT(G(Q1,Q2)*.1)-10*K3
  110. 1501 GOSUB9270
  111. 1540 S3=G(Q1,Q2)-100*K3-10*B3:IFK3=0THEN1590
  112. 1560 PRINT"COMBAT AREA          CONDITION RED":IFS>200THEN1590
  113. 1580 PRINT"SHIELDS APPROACHING OVERLOAD"
  114. 1590 FORI=1TO3:K(I,1)=0:K(I,2)=0:NEXTI
  115. 1600 FORI=1TO3:K(I,3)=0:NEXTI:Q$=Z$+Z$+Z$+Z$+Z$+Z$+Z$+LEFT$(Z$,17)
  116. 1660 REM POSITION ENTERPRISE IN QUADRANT
  117. 1670 REM THEN PLACE "K3" KLINGONS & "B3" STARBASES & "S3" STARS ELSEWHERE
  118. 1680 A$="<*>":Z1=S1:Z2=S2:GOSUB 8670:IFK3<1THEN1820
  119. 1720 FORI=1TOK3:GOSUB8590:A$="+K+":Z1=R1:Z2=R2
  120. 1780 GOSUB8670:K(I,1)=R1:K(I,2)=R2:K(I,3)=S9*(1.0+RND(.)):NEXTI
  121. 1820 IFB3<1THEN1910
  122. 1880 GOSUB8590:A$=">!<":Z1=R1:B4=R1:Z2=R2:B5=R2:GOSUB8670
  123. 1905 IFS3=0THEN1980
  124. 1910 FORI=1TOS3:GOSUB8590:A$=" * ":Z1=R1:Z2=R2:GOSUB8670:NEXTI
  125. 1980 GOSUB6430
  126. 1985 IF RND(.)>DL(5) THENGOSUB6000
  127. 1990 IFS+E>10THENIFE>10ORD(7)=0THEN2060
  128. 2020 PRINT:PRINT"** FATAL ERROR **  YOU'VE JUST"
  129. 2025 PRINT"STRANDED YOUR SHIP IN SPACE.  YOU"
  130. 2030 PRINT"HAVE INSUFFICIENT MANEUVRING ENERGY,"
  131. 2035 PRINT"AND SHIELD CONTROL IS PRESENTLY"
  132. 2037 PRINT"INCAPABLE OF CROSS-CIRCUITING TO"
  133. 2040 PRINT"ENGINE ROOM!!!":FOR II=1 TO 2000:NEXT II:GOTO 6220
  134. 2060 PRINT:INPUT"COMMAND";A$
  135. 2065 REM CHECK FOR BLACK HOLE, ION STORM, SPIES AND OTHER ALIEN ATTACKS
  136. 2070 IF RND(.)>.995THEN 9600
  137. 2075 IF RND(.)>.995THEN 10850
  138. 2076 IFRND(.)>.995THEN18000
  139. 2077 IFRND(.)>.995THEN18100
  140. 2078 IFRND(.)>.995THEN18200
  141. 2080 FORI=1TO10:IFLEFT$(A$,3)<>MID$(A1$,3*I-2,3)THEN2145
  142. 2140 ONIGOTO2295,1980,4000,4260,4700,9650,5690,7290,9299,9500
  143. 2145 NEXT I
  144. 2150 FOR I=1 TO 10:IF LEFT$(A$,3)<>MID$(B1$,3*I-2,3) THEN 2157
  145. 2155 ON I GOTO 5520,9700,9760,9835,9925,9975,10455,11502,10580,10055
  146. 2157 NEXT I
  147. 2160 PRINT"ENTER ONE OF THE FOLLOWING:"
  148. 2165 PRINT"  NAV  (TO SET COURSE)"
  149. 2170 PRINT"  SRS  (FOR SHORT RANGE SENSOR SCAN)"
  150. 2175 PRINT"  LRS  (FOR LONG RANGE SENSOR SCAN)"
  151. 2180 PRINT"  PHA  (TO FIRE PHASERS)"
  152. 2185 PRINT"  TOR  (TO FIRE PHOTON TORPEDOES)"
  153. 2190 PRINT"  SHE  (STATUS OF SHIELDS)"
  154. 2195 PRINT"  DAM  (FOR DAMAGE CONTROL REPORTS)"
  155. 2200 PRINT"  COM  (TO CALL ON LIBRARY-COMPUTER)"
  156. 2205 PRINT"  WRP  (TO CHANGE WARP SPEED)"
  157. 2210 PRINT"  SHD  (TO DISCHARGE SHIELDS)"
  158. 2215 PRINT"  RES  (TO REMAIN STATIONARY)"
  159. 2220 PRINT"  SHT  (TO SEND OUT SHUTTLE CRAFT)"
  160. 2225 PRINT"  SPM  (TO SEND SUBSPACE MESSAGE)"
  161. 2230 PRINT"  SPJ  (TO USE SPACE JUMP)"
  162. 2235 PRINT"  DRD  (TO SEND OUT DROIDS)"
  163. 2240 PRINT"  ROB  (TO USE DAMAGE REPAIR ROBOT)"
  164. 2245 PRINT"  CLK  (TO USE CLOAKING DEVICE)"
  165. 2250 PRINT"  LRP  (TO USE LONG RANGE PROBE)"
  166. 2255 PRINT"  MIN  (TO DETONATE SPACE MINES)"
  167. 2280 PRINT"  XXX  (TO RESIGN YOUR COMMAND)"
  168. 2285 GOTO 2060
  169. 2290 REM COURSE CONTROL BEGINS HERE
  170. 2295 REM WW=WARP SPEED
  171. 2301 IF D(1)<0 THEN WW=0.2
  172. 2303 PRINT "WARP FACTOR ";WW
  173. 2305 INPUT"COURSE (1-9)";C1:IFC1=9THENC1=1
  174. 2310 IFC1>=1ANDC1<9THEN2360
  175. 2330 PRINT"  LT. SULU REPORTS 'INCORRECT COURSE"
  176. 2331 PRINT"DATA, SIR!'":GOTO1990
  177. 2360 PRINT"DISTANCE (0-8)";:INPUT W1:IF W1<0 OR W1>8 THEN 2360
  178. 2380 IFW1>0ANDW1<=8THEN2490
  179. 2390 IFW1=0THEN1990
  180. 2450 REM NV=ENERGY CONSUMED DURING NAVIGATION
  181. 2490 NV=INT(W1*(WW^1.5)+.5):N=INT(W1*8+.5):IFE-NV>=0THEN2495
  182. 2492 REM CHECK IF WARP>6
  183. 2495 IF WW>6 THEN IFRND(.)>.85 GOTO 9625
  184. 2497 GOTO 2590
  185. 2500 PRINT"ENGINEERING REPORTS  'INSUFFICIENT ENERGY AVAILABLE"
  186. 2510 PRINT"                      FOR MANEUVRING AT WARP ";WW;"!'"
  187. 2530 IFS<N-EORD(7)<0THEN1990
  188. 2550 PRINT"DEFLECTOR CONTROL ROOM ACKNOWLEDGES";S;"UNITS OF ENERGY"
  189. 2560 PRINT"                  PRESENTLY DEPLOYED TO SHIELDS."
  190. 2570 GOTO1990
  191. 2580 REM KLINGONS MOVE/FIRE ON MOVING STARSHIP
  192. 2590 FORI=1TOK3:IFK(I,3)=0THEN2700
  193. 2610 A$="   ":Z1=K(I,1):Z2=K(I,2):GOSUB8670:GOSUB8590
  194. 2660 K(I,1)=Z1:K(I,2)=Z2:A$="+K+":GOSUB8670
  195. 2700 NEXTI:GOSUB6000:D1=0:D6=T8:IFT8>=1THEND6=1
  196. 2770 FORI=1TO8:IFD(I)>=0THEN2880
  197. 2790 D(I)=D(I)+D6:IFD(I)>-.1ANDD(I)<0THEND(I)=-.1:GOTO2880
  198. 2800 IF D(I)<0THEN2880
  199. 2810 IF D 1 <>1THEND1=1:PRINT"DAMAGE CONTROL REPORT:   "
  200. 2840 R1=I:GOSUB8790:PRINTG2$;" REPAIR COMPLETED."
  201. 2880 NEXTI:IFRND(.)>.2THEN3070
  202. 2910 R1=FNR(1):IFRND(.)>=.6THEN3000
  203. 2930 D(R1)=D(R1)-(RND(.)*5+1):PRINT"DAMAGE CONTROL REPORT:   "
  204. 2960 GOSUB8790:PRINTG2$;" DAMAGED.":PRINT:GOTO3070
  205. 3000 D(R1)=D(R1)+RND(.)*3+1:PRINT"DAMAGE CONTROL REPORT:   "
  206. 3030 GOSUB8790:PRINTG2$;" STATUS:":PRINTTAB(5);"STATE OF REPAIR IMPROVED.":PRINT
  207. 3060 REM BEGIN MOVING STARSHIP
  208. 3070 A$="   ":Z1=INT(S1):Z2=INT(S2):GOSUB8670
  209. 3110 X1=C(C1,1)+(C(C1+1,1)-C(C1,1))*(C1-INT(C1)):X=S1:Y=S2
  210. 3140 X2=C(C1,2)+(C(C1+1,2)-C(C1,2))*(C1-INT(C1)):Q4=Q1:Q5=Q2
  211. 3170 FORI=1TON:S1=S1+X1:S2=S2+X2:IFS1<1ORS1>=9ORS2<1ORS2>=9THEN3500
  212. 3240 S8=INT(S1)*24+INT(S2)*3-26:IFMID$(Q$,S8,2)="  "THEN3360
  213. 3320 S1=INT(S1-X1):S2=INT(S2-X2):PRINT"WARP ENGINES SHUT DOWN AT SECTOR"
  214. 3350 PRINTTAB(6);S1;",";S2;" DUE TO BAD NAVIGATION":GOTO3370
  215. 3360 NEXTI:S1=INT(S1):S2=INT(S2)
  216. 3370 A$="<*>":Z1=INT(S1):Z2=INT(S2):GOSUB8670:GOSUB3910:T8=(10.0*W1)/(WW*WW)
  217. 3375 S=S*(1.03^T8):IF S>1000 THEN S=1000
  218. 3450 T=T+T8:IFT>T0+T9THEN6220
  219. 3470 REM SEE IF DOCKED. THEN GET COMMAND
  220. 3480 GOTO1980
  221. 3490 REM EXCEEDED QUADRANT LIMITS
  222. 3500 X=8*Q1+X+N*X1:Y=8*Q2+Y+N*X2:Q1=INT(X/8):Q2=INT(Y/8):S1=INT(X-Q1*8)
  223. 3550 S2=INT(Y-Q2*8):IFS1=0THENQ1=Q1-1:S1=8
  224. 3590 IFS2=0THENQ2=Q2-1:S2=8
  225. 3620 X5=0:IFQ1<1THENX5=1:Q1=1:S1=1
  226. 3670 IFQ1>8THENX5=1:Q1=8:S1=8
  227. 3710 IFQ2<1THENX5=1:Q2=1:S2=1
  228. 3750 IFQ2>8THENX5=1:Q2=8:S2=8
  229. 3790 IFX5=0THEN3860
  230. 3800 PRINT"LT. UHURA REPORTS MESSAGE FROM"
  231. 3805 PRINT"STARFLEET COMMAND: 'PERMISSION TO"
  232. 3807 PRINT"ATTEMPT CROSSING OF GALACTIC PERIMETER"
  233. 3809 PRINT"IS HEREBY *DENIED*.  SHUT DOWN YOUR"
  234. 3810 PRINT"ENGINES'":PRINT
  235. 3820 PRINT"CHIEF ENGINEER SCOTT REPORTS 'WARP"
  236. 3823 PRINT"ENGINES SHUT DOWN AT SECTOR";S1;",";S2
  237. 3830 PRINT"OF QUADRANT";Q1;",";Q2;".'"
  238. 3850 IFT>T0+T9THEN6220
  239. 3860 IF8*Q1+Q2=8*Q4+Q5THEN3370
  240. 3870 T=T+(3.65*W1)/(WW*WW):GOSUB3910:IFT>T0+T9THEN6220
  241. 3875 GOTO1320
  242. 3900 REM MANOEUVRE ENERGY SUBROUTINE
  243. 3910 E=E-NV-10:IFE>=0THENRETURN
  244. 3930 PRINT"SHIELD CONTROL SUPPLIES ENERGY TO COMPLETE MANOEUVRE."
  245. 3940 S=S+E:E=0:IFS<=0THENS=0
  246. 3980 RETURN
  247. 3990 REM LONG RANGE SENSOR SCAN CODE
  248. 4000 IFD(3)<0THENPRINT"LONG RANGE SENSORS ARE INOPERABLE":GOTO1990
  249. 4030 PRINT"LONG RANGE SCAN FOR QUADRANT";Q1;",";Q2
  250. 4040 O1$="-------------------":PRINTO1$
  251. 4060 FOR I=Q1-1TOQ1+1:N(1)=-1:N(2)=-2:N(3)=-3:FORJ=Q2-1TOQ2+1
  252. 4120 IFI>0ANDI<9ANDJ>0ANDJ<9THENN(J-Q2+2)=G(I,J):Z(I,J)=G(I,J)
  253. 4179 B$="***  "
  254. 4180 NEXTJ: FORL=1TO3:PRINT": ";:IFN(L)<0THENPRINTLEFT$(B$,4);:GOTO4230
  255. 4210 PRINTRIGHT$(STR$(N(L)+1000),3);" ";
  256. 4230 NEXTL:PRINT":":PRINTO1$:NEXTI:GOTO1990
  257. 4250 REM PHASER CONTROL CODE
  258. 4260 IFD(4)<0THENPRINT"PHASERS INOPERATIVE":GOTO1990
  259. 4265 IFK3>0THEN4330
  260. 4270 PRINT"SCIENCE OFFICER SPOCK REPORTS  'SENSORS"
  261. 4271 PRINT"SHOW NO ENEMY SHIPS IN THIS QUADRANT":GOTO1990
  262. 4330 IFD(8)<0THENPRINT"COMPUTER FAILURE HAMPERS ACCURACY"
  263. 4350 PRINT"PHASERS LOCKED ON TARGET;  ";
  264. 4360 PRINT"ENERGY AVAILABLE =";E;"UNITS"
  265. 4370 INPUT"NUMBER OF UNITS TO FIRE";X:IFX<=0THEN1990
  266. 4400 IFE-X<0THEN4360
  267. 4410 E=E-X:IFD(7)<0THENX=X*RND(.)
  268. 4450 H1=INT(X/K3):FORI=1TO3:IFK(I,3)<=0THEN4670
  269. 4480 H=INT((H1/FND(0))*(RND(.)+2)):IFH>.15*K(I,3)THEN4530
  270. 4500 PRINT"SENSORS SHOW NO DAMAGE TO ENEMY":PRINTTAB(6);"AT "K(I,1);",";K(I,2):GOTO4670
  271. 4530 K(I,3)=K(I,3)-H:PRINTH;"UNIT HIT ON KLINGON AT":PRINTTAB(4);"SECTOR";K(I,1);",";
  272. 4550 PRINTK(I,2):IFK(I,3)<=0THENPRINT"*** KLINGON DESTROYED ***":GOTO4580
  273. 4560 RK=(INT(10*K(I,3)))/10:PRINT"   (SENSORS SHOW";RK;"UNITS REMAINING)":GOTO4670
  274. 4580 K3=K3-1:K9=K9-1:Z1=K(I,1):Z2=K(I,2):A$="   ":GOSUB8670
  275. 4650 K(I,3)=0:G(Q1,Q2)=G(Q1,Q2)-100:Z(Q1,Q2)=G(Q1,Q2):IFK9<=0THEN6370
  276. 4670 NEXTI:GOSUB6000:GOTO1990
  277. 4690 REM PHOTON TORPEDO CODE
  278. 4700 IFP<=0THENPRINT"ALL PHOTON TUBES EXPENDED":GOTO 1990
  279. 4730 IFD(5)<0THENPRINT"PHOTON TUBES ARE NOT OPERATIONAL":GOTO1990
  280. 4760 INPUT"PHOTON TUBE COURSE (1-9)";C1:IFC1=9THENC1=1
  281. 4780 IFC1>=1ANDC1<9THEN4850
  282. 4790 PRINT"ENSIGN CHEKOV REPORTS,  'INCORRECT COURSE DATA, SIR!"
  283. 4800 GOTO1990
  284. 4850 X1=C(C1,1)+(C(C1+1,1)-C(C1,1))*(C1-INT(C1)):E=E-2:P=P-1
  285. 4860 X2=C(C1,2)+(C(C1+1,2)-C(C1,2))*(C1-INT(C1)):X=S1:Y=S2
  286. 4910 PRINT"TORPEDO TRACK:"
  287. 4920 X=X+X1:Y=Y+X2:X3=INT(X+.5):Y3=INT(Y+.5)
  288. 4960 IFX3<1ORX3>8ORY3>8ORY3<1THEN5490
  289. 5000 PRINT"               ";X3;",";Y3:A$="   ":Z1=X:Z2=Y:GOSUB8830
  290. 5050 IFZ3<>0THEN4920
  291. 5060 A$="+K+":Z1=X:Z2=Y:GOSUB8830:IFZ3=0THEN5210
  292. 5110 PRINT"*** KLINGON DESTROYED ***":K3=K3-1:K9=K9-1:IFK9<=0THEN6370
  293. 5150 FORI=1TO3:IFX3=K(I,1)ANDY3=K(I,2)THEN5190
  294. 5180 NEXTI:I=3
  295. 5190 K(I,3)=0:GOTO5430
  296. 5210 A$=" * ":Z1=X:Z2=Y:GOSUB8830:IFZ3=0THEN5280
  297. 5260 PRINT"STAR AT";X3;",";Y3;"ABSORBED TORPEDO ENERGY.":GOSUB10250
  298. 5270 GOSUB6000:GOTO1990
  299. 5280 A$=">!<":Z1=X:Z2=Y:GOSUB8830:IFZ3=0THEN4760
  300. 5330 PRINT"*** STARBASE DESTROYED ***":B3=B3-1:B9=B9-1
  301. 5360 IFB9>0ORK9>T-T0-T9THEN5400
  302. 5370 PRINT"THAT DOES IT CAPTAIN!  YOU ARE HEREBY"
  303. 5375 PRINT"RELIEVED OF COMMAND AND SENTENCED TO"
  304. 5380 PRINT"99 STARDATES OF HARD LABOUR ON CYGNUS!"
  305. 5390 GOTO 6270
  306. 5400 PRINT"STARFLEET COMMAND REVIEWING YOUR RECORD"
  307. 5410 PRINT"TO CONSIDER COURT MARTIAL!":D0=0
  308. 5430 Z1=X:Z2=Y:A$="   ":GOSUB8670
  309. 5470 G(Q1,Q2)=K3*100+B3*10+S3:Z(Q1,Q2)=G(Q1,Q2):GOSUB6000:GOTO1990
  310. 5490 PRINT"TORPEDO MISSED":GOSUB6000:GOTO1990
  311. 5520 REM SHIELD DISCHARGE CONTROL
  312. 5530 IF D(7)>=0 THEN 5540
  313. 5535 PRINT"SHIELD DISCHARGE CONTROL INOPERABLE.":GOTO 1990
  314. 5540 IF S>=800 THEN PRINT"SHIELD STATUS: CONDITION GREEN"
  315. 5543 IF S>=600 AND S<800 THEN PRINT"SHIELD STATUS: CONDITION YELLOW"
  316. 5546 IF S>=300 AND S<600 THEN PRINT"SHIELD STATUS: CONDITION ORANGE"
  317. 5548 IF S<300 THEN PRINT"SHIELD STATUS: CONDITION RED"
  318. 5555 PRINT"ENERGY AVAILABLE = ";E
  319. 5557 REM SD=UNITS TO SHIELD DISCHARGE CONTROL
  320. 5560 INPUT"NO. OF UNITS TO DISCHARGE CONTROL";SD
  321. 5570 IF SD<0 THEN 5560:IF SD=0 THEN PRINT"<SHIELDS UNCHANGED>"
  322. 5580 IF SD>E THEN PRINT"INSUFFICIENT ENERGY AVAILABLE.":IF SD>ETHEN 5560
  323. 5590 E=E-SD:S=S+0.002*SD*SD:IF S>1000 THEN S=1000
  324. 5600 GOTO 1990
  325. 5680 REM DAMAGE CONTROL
  326. 5690 IFD(6)>=0THEN5910
  327. 5700 PRINT"DAMAGE CONTROL REPORT NOT AVAILABLE":IFD0=0THEN1990
  328. 5720 D3=0:FORI=1TO9:IFD(I)<0THEND3=D3+.1
  329. 5760 NEXTI:IFD3=0THEN1990
  330. 5780 PRINT:D3=D3+D4:IFD3>=1THEND3=.9
  331. 5810 PRINT"TECHNICIANS STANDING BY TO EFFECT REPAIRS TO YOUR SHIP;"
  332. 5820 PRINT"ESTIMATED TIME TO REPAIR:";.01*INT(100*D3);"STARDATES"
  333. 5840 PRINT"WILL YOU AUTHORIZE THE REPAIR ORDER?"
  334. 5841 PRINT"(Y / N)"
  335. 5842 INPUT A$
  336. 5860 IFA$<>"Y"THEN1990
  337. 5870 FORI=1TO9:IFD(I)<0THEND(I)=0
  338. 5890 NEXTI:T=T+D3+.1
  339. 5910 PRINT:PRINT"DEVICE             STATE OF REPAIR":FORR1=1TO9
  340. 5920 GOSUB8790:PRINTG2$;LEFT$(Z$,25-LEN(G2$));INT(D(R1)*100)*.01
  341. 5950 NEXTR1:PRINT:IFD0<>0THEN5720
  342. 5980 GOTO 1990
  343. 5990 REM KLINGONS SHOOTING
  344. 6000 IFK3<=0THENRETURN
  345. 6010 PRINT:IFD0<>0THENPRINT"STARBASE SHIELDS PROTECT THE ENTERPRISE":RETURN
  346. 6040 FORI=1TO3:IFK(I,3)<=0THEN6200
  347. 6060 H=INT((K(I,3)/FND(1))*(3.5+RND(.))):K(I,3)=K(I,3)/(3+RND(0))
  348. 6080 IFCD<=0THEN 6086
  349. 6082 IFRND(.)>.9THEN6086
  350. 6083 PRINT"KLINGON PHASOR MISS FROM SECTOR";K(I,1);",";K(I,2):GOTO6200
  351. 6086 PRINTH;" UNIT HIT ON ENTERPRISE":PRINTTAB(6);"FROM SECTOR";K(I,1);",";K(I,2):S=S-H
  352. 6090 IFS<=0THEN6220
  353. 6091 IF S>800 THEN CS$="CONDITION GREEN"
  354. 6092 IF S>600 AND S<=800 THEN CS$="CONDITION YELLOW"
  355. 6093 IF S>300 AND S<=600 THEN CS$="CONDITION ORANGE"
  356. 6094 IF S<=300 THEN CS$="CONDITION RED"
  357. 6100 PRINT"      <SHIELD STATUS: ";CS$;">":IFH<20THEN6200
  358. 6120 IFRND(.)>.6ORH/S<=.02THEN6200
  359. 6140 R1=FNR(1):D(R1)=D(R1)-H/S-.5*RND(.):GOSUB8790
  360. 6170 PRINT:PRINT"DAMAGE CONTROL REPORT:":PRINT G2$;" DAMAGED BY HIT "
  361. 6200 NEXTI:CD=CD-1:RETURN
  362. 6210 REM END OF GAME
  363. 6220 FORIX=1TO1500:NEXTIX:AA$="*********************************":PRINTAA$:PRINTAA$
  364. 6223 PRINT:PRINT:PRINT" DUE TO YOUR INCOMPETENCE THE"
  365. 6225 PRINT" ENTERPRISE HAS BEEN DESTROYED AND"
  366. 6230 PRINT" AND THE FEDERATION WILL BE CONQUERED!"
  367. 6235 PRINT" THERE WERE ";K9;" BATTLE CRUISERS"
  368. 6240 PRINT" LEFT WHEN YOU WERE TERMINATED.":PRINT
  369. 6245 SC=25*(K7-K9)-1000+LD*20+CR/10
  370. 6250 PRINT" YOUR SCORE IS ";INT(SC):PRINT
  371. 6255 GOSUB11000:PRINT:PRINT
  372. 6260 PRINTAA$:PRINTAA$
  373. 6270 END
  374. 6370 PRINT:PRINT:AA$="*************************************":PRINTAA$:PRINTAA$:PRINT:PRINT
  375. 6371 PRINT" CONGRATULATIONS CAPTAIN!! THANKS TO"
  376. 6372 PRINT" YOU THE KLINGONS HAVE BEEN DESTROYED"
  377. 6373 PRINT" AND THE FEDERATION IS SAVED."
  378. 6374 SC=500*(K7/(T-T0))^2+LD*20+CR/10
  379. 6375 PRINT:PRINT" YOUR SCORE IS ";INT(SC):PRINT
  380. 6376 GOSUB11000:PRINT:PRINT
  381. 6377 PRINTAA$:PRINTAA$
  382. 6390 END
  383. 6420 REM SHORT RANGE SENSOR SCAN AND STARTUP ROUTINE
  384. 6430 FORI=S1-1TOS1+1:FORJ=S2-1TOS2+1
  385. 6450 IFINT(I+.5)<1ORINT(I+.5)>8ORINT(J+.5)<1ORINT(J+.5)>8THEN6540
  386. 6490 A$=">!<":Z1=I:Z2=J:GOSUB8830:IFZ3=1THEN6580
  387. 6540 NEXTJ:NEXTI:D0=0:GOTO6650
  388. 6580 D0=1:C$="DOCKED":E=E0:P=P0
  389. 6620 PRINT"SHIELDS DROPPED FOR DOCKING PURPOSES":S=1000:GOTO6720
  390. 6650 IFK3>0THENC$="*RED*":GOTO6720
  391. 6660 C$="GREEN":IFE<E0*.1THENC$="YELLOW"
  392. 6720 IFD(2)>=0THEN6750
  393. 6730 PRINT:PRINT"*** SHORT RANGE SENSORS ARE OUT ***":PRINT:RETURN
  394. 6750 IF S>800 THEN CS$="CONDITION GREEN"
  395. 6751 IF S>600 AND S<=800 THEN CS$="CONDITION YELLOW"
  396. 6752 IF S>300 AND S<=600 THEN CS$="CONDITION ORANGE"
  397. 6753 IF S<=300 THEN CS$="CONDITION RED"
  398. 6770 PRINT:PRINT"        STARDATE          ";INT(T*10)*.1:PRINT
  399. 6771 PRINT"        CONDITION          ";C$:PRINT
  400. 6772 PRINT"        QUADRANT          ";Q1;",";Q2:PRINT
  401. 6773 PRINT"        SECTOR            ";S1;",";S2:PRINT
  402. 6774 PRINT"        PHOTON TORPEDOES  ";INT(P):PRINT
  403. 6775 PRINT"        TOTAL ENERGY      ";INT(E):PRINT
  404. 6776 PRINT"        SHIELDS        ";CS$:PRINT
  405. 6777 PRINT"        KLINGONS REMAINING";INT(K9):PRINT
  406. 6778 GOSUB9270
  407. 6781 O1$="---------------------------------":PRINTO1$:FORI=1TO8:PRINT:PRINT
  408. 6820 FORJ=(I-1)*24+1TO(I-1)*24+22STEP3:PRINT" ";MID$(Q$,J,3);:NEXTJ
  409. 7260 NEXTI:PRINT:PRINTO1$:RETURN
  410. 7280 REM LIBRARY COMPUTER CODE
  411. 7290 IFD(8)<0THENPRINT"COMPUTER DISABLED":GOTO1990
  412. 7320 PRINT"COMPUTER ACTIVE AND AWAITING "
  413. 7321 INPUT"YOUR COMMAND";A
  414. 7322 IFA<0THEN1990
  415. 7350 PRINT:H8=1:ONA+1GOTO7543,7900,8070,8500,8150,7400,10755
  416. 7360 PRINT"FUNCTIONS AVAILABLE FROM LIBRARY-COMPUTER:"
  417. 7370 PRINT"   0 = CUMULATIVE GALACTIC RECORD"
  418. 7372 PRINT"   1 = STATUS REPORT"
  419. 7374 PRINT"   2 = PHOTON TORPEDO DATA"
  420. 7376 PRINT"   3 = STARBASE NAV DATA"
  421. 7378 PRINT"   4 = DIRECTION/DISTANCE CALCULATOR"
  422. 7380 PRINT"   5 = GALAXY 'REGION NAME' MAP"
  423. 7390 PRINT"   6 = INVENTORY OF DEVICES ON BOARD":PRINT:GOTO7320
  424. 7400 H8=0:G5=1:PRINT"                       THE GALAXY":GOTO7550
  425. 7530 REM GALACTIC RECORD
  426. 7543 PRINT:PRINT"        ";
  427. 7544 PRINT"COMPUTER RECORD OF GALAXY FOR":PRINT"QUADRANT";Q1;",";Q2
  428. 7546 PRINT
  429. 7550 PRINT"    1   2   3   4   5   6   7   8
  430. 7560 O1$[178]"  CLOSE --- --- --- --- --- --- --- ---"
  431. 7570 [153]O1$:[129]I[178]1[164]8:[153]I;:[139]H8[178]0[167]7740
  432. 7630 [129]J[178]1[164]8:[153]" ";:[139]Z(I,J)[178]0[175] G(I,J)[179][177]0 [167][153]"***";:[137]7720
  433. 7700 [153][201]([196](Z(I,J)[170]1000),3);
  434. 7720 [130]J:[137]7850
  435. 7740 Z4[178]I:Z5[178]1:[141]9030:J0[178][181](10[171].5[172][195](G2$)):[153][163]J0);G2$;
  436. 7800 Z5[178]5:[141] 9030: J0[178][181](30[171].5[172][195](G2$)):[153] [163]J0);G2$
  437. 7850 [153]:[153]O1$:[130]I:[153]:[137]1990
  438. 7890 [143] STATUS REPORT
  439. 7900 [153]"  STATUS REPORT:":X$[178]"":[139]K9[177]1[167]X$[178]"S"
  440. 7940 [153]"KLINGON";X$;" LEFT: ";K9
  441. 7960 [153]"MISSION MUST BE COMPLETED IN";.1[172][181]((T0[170]T9[171]T)[172]10);"STARDATES"
  442. 7970 X$[178]"S":[139]B9[179]2[167]X$[178]"":[139]B9[179]1[167]8010
  443. 7980 [153]"THE FEDERATION IS MAINTAINING";B9
  444. 7981 [153]"STARBASE";X$;" IN THE GALAXY"
  445. 7990 [137]5690
  446. 8010 [153]"YOUR STUPIDITY HAS LEFT YOU ON"
  447. 8020 [153]"YOUR OWN IN THE GALAXY -- YOU"
  448. 8021 [153]"HAVE NO STARBASES LEFT!":[137]5690
  449. 8060 [143] TORPEDO, BASE NAV, D/D CALCULATOR
  450. 8070 [139]K3[179][178]0[167]4270
  451. 8080 X$[178]"":[139]K3[177]1[167]X$[178]"S"
  452. 8090 [153]"FROM ENTERPRISE TO KLINGON"
  453. 8091 [153]"BATTLE CRUISER";X$
  454. 8100 H8[178]0:[129]I[178]1[164]3:[139]K(I,3)[179][178]0[167]8480
  455. 8110 W1[178]K(I,1):X[178]K(I,2)
  456. 8120 C1[178]S1:A[178]S2:[137]8220
  457. 8150 [153]"DIRECTION/DISTANCE CALCULATOR:"
  458. 8160 [153]"YOU ARE AT QUADRANT ";Q1;",";Q2
  459. 8161 [153]"           SECTOR ";S1;",";S2
  460. 8170 [153]"PLEASE ENTER":[133]" INITIAL COORDINATES (X,Y)";C1,A
  461. 8200 [133]"FINAL COORDINATES (X,Y)";W1,X
  462. 8220 X[178]X[171]A:A[178]C1[171]W1:[139]X[179]0[167]8350
  463. 8250 [139]A[179]0[167]8410
  464. 8260 [139]X[177]0[167]8280
  465. 8270 [139]A[178]0[167]C1[178]5:[137]8290
  466. 8280 C1[178]1
  467. 8290 [139][182](A)[179][178][182](X)[167]8330
  468. 8310 [153]"DIRECTION =";C1[170]((([182](A)[171][182](X))[170][182](A))[173][182](A)):[137]8460
  469. 8330 [153]"DIRECTION =";C1[170]([182](A)[173][182](X)):[137]8460
  470. 8350 [139]A[177]0[167]C1[178]3:[137]8420
  471. 8360 [139]X[179][177]0[167]C1[178]5:[137]8290
  472. 8410 C1[178]7
  473. 8420 [139][182](A)[177][178][182](X)[167]8450
  474. 8430 [153]"DIRECTION =";C1[170]((([182](X)[171][182](A))[170][182](X))[173][182](X)):[137]8460
  475. 8450 [153]"DIRECTION =";C1[170]([182](X)[173][182](A))
  476. 8460 [153]"DISTANCECLOSE=";[186](X[174]2[170]A[174]2):[139]H8[178]1[167]1990
  477. 8480 [130]I:[137]1990
  478. 8500 [139]B3[179][177]0[167][153]"FROM ENTERPRISE TO STARBASE:":W1[178]B4:X[178]B5:[137]8120
  479. 8510 [153]"MR. SPOCK REPORTS, 'SENSORS"
  480. 8520 [153]"SHOW NO STARBASES IN THIS QUADRANT.'":[137]1990
  481. 8580 [143] FIND EMPTY PLACE IN QUADRANT (FOR THINGS)
  482. 8590 R1[178][165]VV(1):R2[178][165]VV(1):A$[178]"   ":Z1[178]R1:Z2[178]R2:[141]8830:[139]Z3[178]0[167]8590
  483. 8600 [142]
  484. 8660 [143] INSERT IN STRING ARRAY FOR QUADRANT
  485. 8670 S8[178][181](Z2[171].5)[172]3[170][181](Z1[171].5)[172]24[170]1
  486. 8675 [139] [195](A$)[179][177]3[167] [153]"ERROR":[144]
  487. 8680 [139]S8[178]1[167]Q$[178]A$[170][201](Q$,189):[142]
  488. 8690 [139]S8[178]190[167]Q$[178][200](Q$,189)[170]A$:[142]
  489. 8700 Q$[178][200](Q$,S8[171]1)[170]A$[170][201](Q$,190[171]S8):[142]
  490. 8780 [143] PRINTS DEVICE NAME
  491. 8790 [145]R1[137]8792,8794,8796,8798,8800,8802,8804,8806,8808
  492. 8792 G2$[178]"WARP ENGINES":[142]
  493. 8794 G2$[178]"SHORT RANGE SENSORS":[142]
  494. 8796 G2$[178]"LONG RANGE SENSORS":[142]
  495. 8798 G2$[178]"PHASER CONTROL":[142]
  496. 8800 G2$[178]"PHOTON TUBES":[142]
  497. 8802 G2$[178]"DAMAGE CONTROL":[142]
  498. 8804 G2$[178]"SHIELD DISCHARGE CONTROL":[142]
  499. 8806 G2$[178]"LIBRARY-COMPUTER":[142]
  500. 8808 G2$[178]"CLOAKING DEVICE":[142]
  501. 8820 [143] STRING COMPARISON IN QUADRANT ARRAY
  502. 8830 Z1[178][181](Z1[170].5):Z2[178][181](Z2[170].5):S8[178](Z2[171]1)[172]3[170](Z1[171]1)[172]24[170]1:Z3[178]0
  503. 8890 [139][202](Q$,S8,3)[179][177]A$[167][142]
  504. 8900 Z3[178]1:[142]
  505. 9010 [143] QUADRANT NAME IN G2$ FROM Z4,Z5 (=Q1,Q2)
  506. 9012 [143] CALL WITH G5=1 TO GET REGION NAME ONLY
  507. 9030 [139]Z5[179][178]4[167][145]Z4[137]9040,9050,9060,9070,9080,9090,9100,9110
  508. 9035 [137]9120
  509. 9040 G2$[178]"ANTARES":[137]9210
  510. 9050 G2$[178]"RIGEL":[137]9210
  511. 9060 G2$[178]"PROCYON":[137]9210
  512. 9070 G2$[178]"VEGA":[137]9210
  513. 9080 G2$[178]"CANOPUS":[137]9210
  514. 9090 G2$[178]"ALTAIR":[137]9210
  515. 9100 G2$[178]"SAGITTARIUS":[137]9210
  516. 9110 G2$[178]"POLLUX":[137]9210
  517. 9120 [145]Z4[137]9130,9140,9150,9160,9170,9180,9190,9200
  518. 9130 G2$[178]"SIRIUS":[137]9210
  519. 9140 G2$[178]"DENEB":[137]9210
  520. 9150 G2$[178]"CAPELLA":[137]9210
  521. 9160 G2$[178]"BETELGEUSE":[137]9210
  522. 9170 G2$[178]"ALDEBARAN":[137]9210
  523. 9180 G2$[178]"REGULUS":[137]9210
  524. 9190 G2$[178]"ARCTURUS":[137]9210
  525. 9200 G2$[178]"SPICA"
  526. 9210 [139]G5[179][177]1[167][145]Z5[137]9230,9240,9250,9260,9230,9240,9250,9260
  527. 9220 [142]
  528. 9230 G2$[178]G2$[170]" I ":[142]
  529. 9240 G2$[178]G2$[170]" II ":[142]
  530. 9250 G2$[178]G2$[170]" III ":[142]
  531. 9260 G2$[178]G2$[170]" IV ":[142]
  532. 9265 [143] MONITOR CONTROL
  533. 9270 [153]:[153]"HIT ANY KEY TO CONTINUE":[153]
  534. 9271 [161]F$:[139]F$[178]""[167]9271:[146] [129] A KEY
  535. 9272 [142]
  536. 9298 [143] RESIGNING COMMAND - END GAME
  537. 9299 AA$[178]"**************************************"
  538. 9300 [153]"(LOAD)":[153]:[153]:[153]AA$:[153]AA$:[153]:[153]
  539. 9301 [153]"THERE WERE";K9;"KLINGON BATTLE CRUISERS"
  540. 9302 [153]"LEFT WHEN YOU RESIGNED.":[153]
  541. 9303 [139] T[178]T0 [167] SC[178](K7[171]K9)[171]1500[170]LD[172]20[170]CR[173]10:[137]9310
  542. 9305 SC[178]25[172](K7[171]K9)[171]1500[170]LD[172]20[170]CR[173]10
  543. 9310 [153]" YOUR SCORE IS ";[181](SC):[153]
  544. 9315 [141] 11000:[153]:[153]
  545. 9320 [153]AA$:[153]AA$:[153]:[153]
  546. 9350 [128]
  547. 9500 [143] WARP DRIVE CONTROL
  548. 9501 X$[178]"8":[139] D(1)[179]0 [167] X$[178]"0.2"
  549. 9510 [153]"WARP FACTOR (0-";X$;")";:[133] WW:[139] D(1)[179]0 [175] WW[177].2 [167] 9560
  550. 9520 [139] WW[177]0 [175] WW[179][178]8 [167] 9570
  551. 9530 [139] WW[178]0 [167] 9510
  552. 9540 [153]"CHIEF ENGINEER SCOTT REPORTS 'THE"
  553. 9545 [153]"ENGINES WONT TAKE WARP ";WW;"!!'":[137] 9500
  554. 9560 [153]"WARP ENGINES ARE DAMAGED.":[153]"MAXIMUM SPEED = WARP 0.2":[137]9500
  555. 9570 [139] MO[178]1 [167] 1462
  556. 9580 [137] 2060
  557. 9600 [143] BLACK HOLE SITUATION
  558. 9605 [153]"ENTERPRISE HAS BEEN PULLED INTO A":[153]"BLACK HOLE.!!"
  559. 9610 Q1[178][181](7.98[172][187](.)[170]1.01):Q2[178][181](7.98[172][187](.)[170]1.01):[141]10210
  560. 9612 [129] IL[178]1 [164] 1500:[130]IL
  561. 9615 [137] 1310
  562. 9625 [143] BREAKDOWN OF WARP ENGINES
  563. 9630 D(1)[178][171]4.5[172][187](.)[170]D(1)
  564. 9635 [153]"WARP ENGINES OVERLOADED." :[153]"MAXIMUM SPEED NOW WARP 0.2."
  565. 9640 WW[178]0.2:[137] 1990
  566. 9650 [143] SHIELD STATUS REPORT
  567. 9660 S8[178]([181](S))[173]10:S7$[178][196](S8)[170]"%"
  568. 9670 [139] S[179]300 [167] [153]"SHIELD STATUS: ";S7$;"    CONDITION RED"
  569. 9675 [139] S[177][178]300[175]S[179]600 [167] [153]"SHIELD STATUS: ";S7$;"   CONDITION ORANGE"
  570. 9680 [139] S[177][178]600[175]S[179]800 [167] [153]"SHIELD STATUS: ";S7$;"   CONDITION YELLOW"
  571. 9685 [139] S[177][178]800 [167] [153]"SHIELD STATUS: ";S7$;"    CONDITION GREEN"
  572. 9690 [137] 1990
  573. 9700 [143] REST PERIOD (T6)
  574. 9710 [133] "REST PERIOD ";T6
  575. 9712 T[178]T[170]T6:TX[178].1[172][181]((T0[170]T9[171]T)[172]10):[139] TX[179][178]0 [167]6220
  576. 9713 S[178]S[172](1.03[174]T6):[139] S[177]1000 [167] S[178]1000
  577. 9714 [139] T6[179][178].25 [167] 9718
  578. 9715 TE[178][181](T6[173].75[170].75):[129] IM[178]1[164] TE:[141] 6000:[130]IM
  579. 9718 [129] IP[178]1[164]9:[139] D(IP)[177][178]0 [167] 9750
  580. 9720 D(IP)[178]D(IP)[170]T6:[139] D(IP)[177][171].1 [175] D(IP)[179]0 [167] D(IP)[178][171].1:[137] 9750
  581. 9725 [139] D(IP)[179]0 [167] 9750
  582. 9730 [139] D1[179][177]1 [167] D1[178]1:[153]"DAMAGE CONTROL REPORT:   "
  583. 9735 R1[178]IP:[141] 8790:[153] G2$;" REPAIR COMPLETED."
  584. 9750 [130] IP:[137] 1990
  585. 9755 [143] SHUTTLE CRAFT SEARCH
  586. 9757 T[178]T[170]1:[139] T[177]T0[170]T9[167] 6220:S[178]S[172]1.03:[139] S[177]1000 [167] S[178]1000
  587. 9758 [139] E[171]25[179]0[167] [153]"INSUFFICIENT ENERGY TO LAUNCH SHUTTLE"
  588. 9759 [139] E[171]25[179]0 [167] 1990
  589. 9760 E[178]E[171]25
  590. 9765 [129] I[178]1 [164] 8:[139] D(I)[177][178]0 [167] 9790
  591. 9770 D(I)[178]D(I)[170]1:[139] D(I)[177][171].1 [175] D(I)[179]0 [167] D(I)[178][171].1:[137] 9790
  592. 9775 [139] D(I)[179]0 [167] 9790
  593. 9780 [139] D1[179][177]1 [167] D1[178]1:[153]"DAMAGE CONTROL REPORT:   ";
  594. 9785 [153][163]8);:R1[178]I:[141] 8790:[153]G2$;" REPAIR COMPLETED."
  595. 9790 [130] I:[129] IR[178]1 [164] 2000:[130] IR
  596. 9791 [139] K3[179][178]0 [167] 9795
  597. 9792 [153]"KLINGONS PRESENT PREVENT SHUTTLE FROM"
  598. 9793 [153]"LEAVING THE VICINITY OF THE ENTERPRISE":[137] 1990
  599. 9795 [139] [187](.)[177].35[167] 9820
  600. 9800 [139] [187](.)[179].65 [167] 9810
  601. 9803 [153]"SHUTTLE HAS ENCOUNTERED A SUPPLY SHIP."
  602. 9805 ES[178]50[172][181](20[172][187](.)[170]1):[153]"ENERGY TRANFERRED TO THE ENTERPRISE=";ES
  603. 9806 E[178]E[170]ES:[141] 6000:[137] 1990
  604. 9810 [153]"SHUTTLE HAS FOUND ENERGY SUPPLY ON ":[153]"NEARBY PLANET.":[137] 9805
  605. 9820 [153]"SHUTTLE HAS ENCOUNTERED NO AID.":[141] 6000:[137]1990
  606. 9830 [143] SUBSPACE MESSAGE
  607. 9835 [139] E[171]150[177]0 [167] 9838
  608. 9836 [153]"INSUFFICIENT ENERGY TO TRANSMIT":[153]"SUBSPACE MESSAGE.":[137]1990
  609. 9838 E[178]E[171]150
  610. 9840 T[178]T[170].1:SM[178][181](10[172][187](.)[170]1):[129] II[178]1[164] 2000:[130]II
  611. 9841 [139] K3[179][178]0 [167] 9845
  612. 9842 [153]"KLINGONS ARE JAMMING SUBSPACE MESSAGE.":[137] 1990
  613. 9845 [145] SM [137] 9850,9860,9855,9860,9865,9870,9875,9880,9885,9890
  614. 9850 [153]"NO STARCRAFT WITHIN RANGE OF SUBSPACE":[153]"MESSAGE.":[137] 1990
  615. 9855 [153]"SUBSPACE MESSAGE HAS ATTRACTED ORION":[153]"PIRATES."
  616. 9857 OP[178][181](250[172][187](.)[170]1):[153]OP;" UNIT HIT ON SHIELDS":S[178]S[171]OP:[139]S[179]0[167]6220
  617. 9858 [141]9895:[141]10210:[129]II[178]1[164]2000:[130]II:[153]"PIRATE VESSEL HAS RETREATED."
  618. 9859 [137]1990
  619. 9860 [153]"SUBSPACE MESSAGE HAS BEEN INTERCEPTED":[153]"BY ROMULAN CRUISER."
  620. 9862 RC[178][181](450[172][187](.)[170]1):S[178]S[171]RC:[153]RC;" UNIT HIT ON THE SHIELDS.":[141] 9895
  621. 9863 [141]10210:[139] S[179]0[167] 6220:[129] II[178]1 [164] 2000:[130]II:[139] [187](.)[177].5 [167] 9862
  622. 9864 [153]"ROMULAN VESSEL HAS LEFT THE SECTOR.":[137] 1990
  623. 9865 [153]"ATTACK BY TWO THOLIAN STARSHIPS."
  624. 9866 TH[178][181](300[172][187](.)[170]1):SS[178]S[171]TH:[153]TH;" UNIT HIT ON THE SHIELDS."
  625. 9867 [141] 9895:[139] S[179]0 [167] 6220:[141]10210:[129] II[178]1 [164] 2000:[130]II
  626. 9868 [139] [187](.)[177].6 [167] 9866
  627. 9869 [153]"THOLIAN SHIPS HAVE LEFT THE SECTOR.":[137] 1990
  628. 9870 [153]"NAVAL SUPPLY SHIP HAS ANSWERED":[153]"SUBSPACE MESSSAGE."
  629. 9871 NS[178]50[172]([181](10[172][187](.)[170]1)):[153]NS;" UNITS OF ENERGY HAVE BEEN ADDED."
  630. 9872 E[178]E[170]NS:[139]E[177]3000 [167] E[178]3000
  631. 9873 NS[178][181](5[172][187](.)[170]1):[153]NS;" PHOTON TORPEDOES HAVE BEEN ADDED."
  632. 9874 P[178]P[170]NS:[137]1990
  633. 9875 [153]"VULCAN STARSHIP INTREPID HAS COME."
  634. 9876 [153]"ALL DAMAGE TO INSTRUMENTS HAS BEEN":[153]"REPAIRED."
  635. 9877 [153]"ENGINES HAVE BEEN SET TO WARP 3":[129] I[178]1[164]9:D(I)[178]0:[130]I:WW[178]3
  636. 9878 [129] II[178]1 [164] 3000:[130]II:[137] 1990
  637. 9880 [153]"FEDERATION CRUISER USS DEFIANT HAS ":[153]"ARRIVED."
  638. 9881 [153]"ALL DAMAGE TO WARP ENGINES, PHASARS,":[153]"PHOTON TORPEDOES AND SHIELD"
  639. 9882 [153]"DISCHARGE CONTROLS HAS BEEN REPAIRED."
  640. 9883 [153]"ENGINES HAVE BEEN SET TO WARP 3.":WW[178]3:D(1)[178]0:D(4)[178]0:D(5)[178]0:D(7)[178]0
  641. 9884 [137] 1990
  642. 9885 [153]"FEDERATION SUPPLY SHIP HAS COME."
  643. 9886 [153]"DAMAGE CONTROL HAS BEEN REPAIRED.":D(6)[178]0:FS[178]40[172][181](10[172][187](.)[170]1)
  644. 9887 [153]FS;" UNITS OF ENERGY HAVE BEEN ADDED.":E[178]E[170]FS:[139] E[177]3000 [167] E[178]3000
  645. 9888 [137] 1990
  646. 9890 [153]"VULCAN SCIENTIFIC EXPEDITION ANSWERS":[153]"SUBSPACE MESSAGE."
  647. 9891 [153]"DAMAGE TO SHORT RANGE SENSORS, LONG"
  648. 9892 [153]"RANGE SENSORS AND LIBRARY COMPUTER HAS":[153]"BEEN REPAIRED."
  649. 9893 D(2)[178]0:D(3)[178]0:D(8)[178]0:[137] 1990
  650. 9895 [139] S[177]800 [167] CS$[178]"CONDITION GREEN"
  651. 9896 [139] S[177]600 [175] S[179][178]800 [167] CS$[178]"CONDITION YELLOW"
  652. 9897 [139] S[177]300 [175] S[179][178]600 [167] CS$[178]"CONDITION ORANGE"
  653. 9898 [139] S[179][178]300 [167] CS$[178]"CONDITION RED"
  654. 9899 [153]"      <SHIELD STATUS: ";CS$;">":[142]
  655. 9920 [143] SPACE JUMP (SJ)
  656. 9925 [139] SJ[177]0 [167] 9935
  657. 9930 [153]"NO MORE SPACE JUMPS REMAINING.":[137] 1990
  658. 9935 [139] D(1)[177][178]0 [167] 9945
  659. 9940 [153]"DAMAGE TO WARP ENGINES PREVENTS SPACE":[153]"JUMP.":[137] 1990
  660. 9945 [153]"PRESENT QUADRANT  ";Q1;",";Q2
  661. 9950 [133] "FINAL COORDINAES (X,Y) ";Q1,Q2
  662. 9952 [139] Q1[179]1[176]Q1[177]8 [167] 9950:[139] Q2[179]1[176]Q2[177]8 [167] 9950
  663. 9955 [153]"WARP ENGINES ENGAGING SPACE JUMP.":[129] IP[178]1 [164] 2000:[130]IP:SJ[178]SJ[171]1
  664. 9960 T[178]T[170].001:[137] 1310
  665. 9970 [143] DROID COMMAND (DR)
  666. 9975 [139] DR[177]0 [167] 9985
  667. 9980 [153]"NO MORE DROIDS REMAINING.":[137] 1990
  668. 9985 [139] D(2)[179]0 [167] 10003
  669. 9990 [153]"SHORT RANGE SENSORS ARE OPERABLE."
  670. 9991 [153]"DO YOU STILL WANT TO LAUNCH THE DROID":[133] "Y/N)";DR$
  671. 10000 [139] [200](DR$,1)[178]"N" [167] 1990
  672. 10003 [153]"DROID IS BEING LAUNCHED.":[129] I[178]1 [164] 1500:[130]I
  673. 10006 [139] K3[177]0[175] [187](.)[177].7 [167] [153]"KLINGONS HAVE DESTROYED DROID.":[137] 10040
  674. 10009 [129]I[178]S1[171]1[164]S1[170]1:[129]J[178]S2[171]1[164]S2[170]1
  675. 10010 [139][181](I[170].5)[179]1[176][181](I[170].5)[177]8[176][181](J[170].5)[179]1[176][181](J[170].5)[177]8[167]10020
  676. 10015 A$[178]">!<":Z1[178]I:Z2[178]J:[141]8830
  677. 10020 [130]J:[130]I:D0[178]0
  678. 10025 O1$[178]"---------------------------------":[153]O1$:[129]I[178]1[164]8:[153]:[153]
  679. 10030 [129]J[178](I[171]1)[172]24[170]1[164](I[171]1)[172]24[170]22[169]3:[153]" ";[202](Q$,J,3);:[130]J
  680. 10035 [130]I:[153]:[153]O1$
  681. 10040 DR[178]DR[171]1:[137] 1990
  682. 10050 [143] SPACE MINE COMMAND (MN)
  683. 10055 [139] MN[177]0 [167] 10063
  684. 10060 [153]"NO MORE SPACE MINES LEFT ON BOARD.":[137] 1990
  685. 10063 [153]"SPACE MINE IS BEING ARMED."
  686. 10065 [133] "COURSE (1-8) ";C9
  687. 10070 [139] C9[179]1 [176] C9[177]8 [167] 10065
  688. 10075 C9[178][181](C9)
  689. 10080 [145] C9 [137] 10085,10090,10095,10100,10105,10110,10115,10120
  690. 10085 M1[178]Q1:M2[178]Q2[170]1:[137] 10125
  691. 10090 M1[178]Q1[171]1:M2[178]Q2[170]1:[137] 10125
  692. 10095 M1[178]Q1[171]1:M2[178]Q2:[137] 10125
  693. 10100 M1[178]Q1[171]1:M2[178]Q2[171]1:[137] 10125
  694. 10105 M1[178]Q1:M2[178]Q2[171]1:[137] 10125
  695. 10110 M1[178]Q1[170]1:M2[178]Q2[171]1:[137] 10125
  696. 10115 M1[178]Q1[170]1:M2[178]Q2:[137] 10125
  697. 10120 M1[178]Q1[170]1:M2[178]Q2[170]1:[137] 10125
  698. 10125 [139] M1[179]1 [176] M1[177]8 [167] 10130
  699. 10126 [139] M2[177][178]1[175]M2[179][178]8 [167] 10140
  700. 10130 [129] I[178]1 [164] 1500:[130]I:[153]"SPACE MINE HAS DETONATED WHILE"
  701. 10132 [153]"CROSSINGTHE GALACTIC BARRIER."
  702. 10135 MN[178]MN[171]1:[137] 1990
  703. 10140 Z4[178]M1:Z5[178]M2:[129]I[178]1 [164] 1500:[130]I
  704. 10150 [141] 9030:[153]"SPACE MINE HAS ENTERED QUADRANT"
  705. 10160 [153] G2$;" AND DETONATED."
  706. 10170 [153]"ALL MATTER WITHIN THIS QUADRANT HAS":[153]"BEEN ANNIHILATED!!"
  707. 10171 K8[178][181](G(M1,M2)[172].01):B8[178][181](G(M1,M2)[172].1)[171]10[172]K8
  708. 10172 S8[178]G(M1,M2)[171]100[172]K8[171]10[172]B8
  709. 10173 G(M1,M2)[178]0
  710. 10175 [153]"THE FOLLOWING HAVE BEEN DESTROYED:"
  711. 10180 [153] [163]5) S8," STARS"
  712. 10185 [139] K8[177]0 [167] [153] [163]5) K8," KLINGONS"
  713. 10190 [139] B8[177]0 [167] [153] [163]5) B8," STARBASE"
  714. 10195 K9[178]K9[171]K8:K8[178]0:B8[178]0:S8[178]0:MN[178]MN[171]1:[139] K9[178]0 [167] 6370
  715. 10200 [153]:[137] 1990
  716. 10208 [143] DAMAGE CONTROL FROM ATTACK DURING SPM AND ENTERING BLACK HOLE
  717. 10210 R1[178][165]R(1):D(R1)[178]D(R1)[171].5[172][187](.):[141]8790
  718. 10215 [153]:[153]"DAMAGE CONTROL REPORT:":[153] G2$;" DAMAGED."
  719. 10220 [142]
  720. 10245 [143] EXPLODING STAR SUBROUTINE (FE = FORCE OF EXPLOSION)
  721. 10250 [139][187](.)[179].3[167]10400
  722. 10260 FE[178][181](3[172][187](.)[170]1)
  723. 10262 M1[178]Q1:M2[178]Q2
  724. 10265 [129] I[178]1[164]1500:[130]I:[153]"STAR HAS BECOME UNSTABLE AND EXPLODED"
  725. 10268 [153]"WITH FORCE ";[181](FE);"!!":[129]I[178]1[164]1500:[130]I:G(Q1,Q2)[178]G(Q1,Q2)[171]1
  726. 10269 Z1[178]X3:Z2[178]Y3:A$[178]"   ":[141]8670
  727. 10270 K8[178][181](G(M1,M2)[172].01):B8[178][181](G(M1,M2)[172].1)[171]10[172]K8
  728. 10275 [139]B8[178]0[167]10300
  729. 10280 SB[178][186]((B4[171]X3)[174]2 [170] (B5[171]Y3)[174]2)
  730. 10285 [139]SB[177]FE[167]10300
  731. 10290 [153]"STARBASE IS DESTROYED IN STELLAR EXPLOSION!":B3[178]B3[171]1:B9[178]B9[171]1:B8[178]B8[171]1
  732. 10293 Z1[178]B4:Z2[178]B5:A$[178]"   ":[141]8670
  733. 10295 G(M1,M2)[178]G(Q1,Q2)[171]10
  734. 10300 [139]K8[179][178]0[167]10345
  735. 10305 [129] I[178]1[164]K8
  736. 10310 SK[178][186]((K(I,1)[171]X3)[174]2 [170] (K(I,2)[171]Y3)[174]2)
  737. 10315 [139]SK[177]FE[167]10340
  738. 10320 [153]"KLINGON AT ";K(I,1);",";K(I,2);" DESTROYED!"
  739. 10325 K3[178]K3[171]1:K9[178]K9[171]1:G(Q1,Q2)[178]G(Q1,Q2)[171]100:K(I,3)[178]0
  740. 10330 Z1[178]K(I,1):Z2[178]K(I,2):A$[178]"   ":[141]8670
  741. 10335 [139] K9[179][178]0[167] 6370
  742. 10340 [130]I
  743. 10345 SE[178][186](([182](S1[171]X3))[174]2 [170] ([182](S2[171]Y3))[174]2)
  744. 10350 [139] SE[177]FE [167]10400
  745. 10355 [153]"ENTERPRISE HAS BEEN DESTROYED IN":[153]"STELLAR EXPLOSION!!":[137]6210
  746. 10400 [142]
  747. 10450 [143] DAMAGE REPAIR ROBOT (RB)
  748. 10455 [139] RB[177]0[167]10465
  749. 10460 [153]"NO MORE REPAIR ROBOTS, CAPTAIN.":[137]1990
  750. 10465 [139][187](.)[179].95[167] 10520
  751. 10470 [153]"ROBBY THE REPAIR ROBOT HAS GONE CRAZY!!"
  752. 10475 [153]"DAMAGE CONTROL REPORTS:":LT[178]0
  753. 10480 [129]LL[178]1[164]9:[139] [187](.)[179].6[167]10500
  754. 10485 D(LL)[178]D(LL)[171]2[172][187](.)
  755. 10490 [139]D(LL)[177][178]0[167]10500
  756. 10495 R1[178]LL:[141]8790:[153]G2$;" DAMAGED BY ROBOT":LT[178]1
  757. 10500 [130]LL
  758. 10505 [139] LT[178]0 [167][153]"NOTHING DAMAGED FORTUNATELY."
  759. 10510 [153]"SECURITY HAS BEEN FORCED TO DESTROY":[153]"ALL REPAIR ROBOTS."
  760. 10515 RB[178]0:[137]1990
  761. 10520 [153]"ROBBY THE REPAIR ROBOT IS HARD AT ":[153]"WORK."
  762. 10521 [129]LL[178]1[164]9
  763. 10525 [139]D(LL)[179]0[167]10530
  764. 10527 D(LL)[178]0:[137]10545
  765. 10530 [139]D(LL)[177][171].5[167]D(LL)[178]0
  766. 10535 [139]D(LL)[179][171].5[175]D(LL)[177][171]1[167]D(LL)[178][171].25
  767. 10540 [139]D(LL)[179][178][171]1[167]D(LL)[178].5[172]D(LL)
  768. 10545 [130]LL:[129]I[178]1[164]1000:[130]I:[153]"ROBBY IS FINISHED."
  769. 10550 RB[178]RB[171]1:[137]1990
  770. 10575 [143] LONG RANGE PROBE (PR)
  771. 10580 [139] PR[177]0[167]10590
  772. 10585 [153]"NO MORE LONG RANGE PROBES REMAINING.":[137] 1990
  773. 10590 [139]E[177]100[167]10600
  774. 10595 [153]"INSUFFICIENT ENERGY TO LAUNCH PROBE.":[137]1990
  775. 10600 E[178]E[171]100:PR[178]PR[171]1:[153]"LONG RANGE PROBE IS LAUNCHED."
  776. 10605 [129] LL[178]1[164]1500:[130]LL
  777. 10610 [139][187](.)[177].35 [167]10615
  778. 10613 [139]K3[177]0[167][153]"KLINGONS IN QUADRANT HAVE DESTROYED":[153]"PROBE.":[137]1990
  779. 10615 [153]"LONG RANGE PROBE SCAN FROM":[153]"QUADRANT";[181](Q1);",";[181](Q2)
  780. 10620 O1$[178]"-------------------------------":[153]O1$
  781. 10625 [129] I[178]Q1[171]2[164]Q1[170]2:N(1)[178][171]1:N(2)[178][171]2:N(3)[178][171]3:N(4)[178][171]4:N(5)[178][171]5:[129]J[178]Q2[171]2[164]Q2[170]2
  782. 10630 [139]I[177]0[175]I[179]9[175]J[177]0[175]J[179]9[167]N(J[171]Q2[170]3)[178]G(I,J):Z(I,J)[178]G(I,J)
  783. 10635 B$[178]"***  "
  784. 10640 [130]J: [129]L[178]1[164]5:[153]": ";:[139]N(L)[179]0[167][153][200](B$,4);:[137]10650
  785. 10645 [153][201]([196](N(L)[170]1000),3);" ";
  786. 10650 [130]L:[153]":":[153]O1$:[130]I:[137]1990
  787. 10750 [143] COMPUTER LISTING OF ITEMS ON BOARD
  788. 10755 [153]:[153]" DEVICE              QUANTITY REMAINING"
  789. 10760 [153]"ENERGY";[163]28);[181](E)
  790. 10765 [153]"PHOTON TORPEDOES";[163]28);[181](P)
  791. 10770 [153]"DROIDS";[163]28);[181](DR)
  792. 10775 [153]"SPACE JUMPS";[163]28);[181](SJ)
  793. 10780 [153]"SPACE MINES";[163]28);[181](MN)
  794. 10785 [153]"LONG RANGE PROBES";[163]28);[181](PR)
  795. 10790 [153]"REPAIR ROBOT";[163]28);[181](RB)
  796. 10795 [153]:[137]1990
  797. 10850 [143] ION STORM
  798. 10855 [153]"ENTERPRISE IS ENCOUNTERING AN ION":[153]"STORM."
  799. 10860 [153]"DAMAGE CONTROL REPORT:":XX[178]0
  800. 10865 [139] [187](.)[179].7[167]10880
  801. 10870 R1[178]1:[141]8790:D(R1)[178]D(R1)[171]2[172][187](.)
  802. 10875 [153]G2$;" DAMAGED.":XX[178]1
  803. 10880 [139] [187](.)[179].6[167]10895
  804. 10885 R1[178]2:[141]8790:D(R1)[178]D(R1)[171]2.5[172][187](.)
  805. 10890 [153]G2$;" DAMAGED.":XX[178]1
  806. 10895 [139][187](.)[179].65[167]10910
  807. 10900 R1[178]3:[141]8790:D(R1)[178]D(R1)[171]1.5[172][187](.)
  808. 10905 [153]G2$;" DAMAGED.":XX[178]1
  809. 10910 [139][187](.)[179].8[167]10925
  810. 10915 R1[178]7:[141]8790:D(R1)[178]D(R1)[171][187](.)
  811. 10920 [153]G2$;" DAMAGED.":XX[178]1
  812. 10925 [139]XX[178]0[167][153]"NO FURTHER DAMAGE."
  813. 10927 [141]6000
  814. 10930 [137] 1990
  815. 11000 [143] EFFICIENCY RATING
  816. 11005 [153]:[153]" LEVEL:";LD
  817. 11010 [153]:[153]" NO. OF KLINGONS DESTROYED: ";[181](K7[171]K9)
  818. 11012 TZ[178].1[172][181]((T0[170]T9[171]T)[172]10):[139]TZ[179][178]0[167]TZ[178]0
  819. 11015 [153]:[153]" TIME REMAINING: ";TZ;" STARDATES"
  820. 11020 [153]:[153]" *** EFFICIENCY RATING ***"
  821. 11025 [139] SC[177][171]500[167]11035
  822. 11030 [153]" GREETINGS OH KING OF THE KNUCKLEHEADS!":[142]
  823. 11035 [139] SC[177][178][171]500[175]SC[179][171]250[167][153]" I KNIGHT THEE 'SIR DIMWIT'.":[142]
  824. 11040 [139]SC[177][178][171]250[175]SC[179]0[167][153]" HELLO WIMPY!":[142]
  825. 11045 [139] SC[177][178]0[175]SC[179]250[167][153]" HELLO SPACE CADET!!!":[142]
  826. 11050 [139] SC[177][178]250[175]SC[179]500[167][153]" MOVE UP TO COMMODORE (PUN).":[142]
  827. 11055 [139] SC[177][178]500[175]SC[179]750[167][153]" PROMOTED TO ADMIRAL.":[142]
  828. 11060 [139] SC[177][178]750[175]SC[179]1000[167][153]" PROMOTED TO KING.":[142]
  829. 11065 [139] SC[177][178]1000[167][153]" LETS HEAR IT FOR OL' FART FACE!!"
  830. 11070 [142]
  831. 11195 [143] INVENTORY OF DEVICES ON ENTERPRISE
  832. 11200 [153]"LOAD":[153]:[153]"INVENTORY LISTING OF THE ENTERPRISE":[153]
  833. 11205 [153]"DEVICE";[163]20);"NO.";[163]25);"COST (CREDITS)":[153]
  834. 11210 [153]"TORPEDO CAPACITY";[163]19);[181](P0);[163]29);[181](P0[172]150)
  835. 11215 [153]"DROIDS";[163]19);[181](DR);[163]29);[181](DR[172]250)
  836. 11220 [153]"SPACE JUMPS";[163]19);[181](SJ);[163]29);[181](SJ[172]350)
  837. 11225 [153]"SPACE MINES";[163]19);[181](MN);[163]29);[181](MN[172]500)
  838. 11230 [153]"LONG RANGE PROBES";[163]19);[181](PR);[163]29);[181](PR[172]300)
  839. 11235 [153]"REPAIR ROBOT";[163]19);[181](RB);[163]29);[181](RB[172]200):[153]
  840. 11240 [153]"ANY UNUSED CREDITS ARE USED TOWARD":[153]"IMPROVING YOUR SCORE.":[153]
  841. 11245 CO[178](P0[172]150[170]DR[172]250[170]SJ[172]350[170]MN[172]500[170]PR[172]300[170]RB[172]200):CR[178]5000[171]CO
  842. 11250 [153]"TOTAL BUDGET = 5000 CREDITS"
  843. 11255 [153]"TOTAL COST = ";[181](CO);" CREDITS":[153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  844. 11260 [153]"REMAINDER = ";[181](CREDIT);" CREDITS":[153]:[142]
  845. 11500 [143] CLOAKING DEVICE
  846. 11502 [139] CD[178]1[167][153]"CLOAKING DEVICE IS ALREADY ACTIVATED.":[137]1990
  847. 11505 [139] D(9)[177][178]0[167]11515
  848. 11510 [153]"CLOAKING DEVICE IS INOPERABLE.":[137]1990
  849. 11515 [139]E[177]300[167]11525
  850. 11520 [153]"INSUFFICIENT ENERGY TO OPERATE":[153]"CLOAKING DEVICE.":[137]1990
  851. 11525 E[178]E[171]300:CD[178]1:[153]"CLOAKING DEVICE IS ACTIVATED."
  852. 11530 [137]1990
  853. 12000 [143] DATA STATEMENTS FOR LEVEL OF DIFFICULTY(DL(5)) AND S9 (KLINGONS)
  854. 12005 [131] .98,.95,.80,.92,.95,50
  855. 12010 [131] .98,.94,.75,.93,.95,75
  856. 12015 [131] .98,.95,.75,.94,.90,100
  857. 12020 [131] .98,.94,.80,.95,.90,150
  858. 12025 [131] .98,.94,.80,.95,.90,200
  859. 12030 [131] .97,.93,.78,.96,.80,250
  860. 12035 [131] .97,.93,.78,.96,.80,325
  861. 12040 [131] .96,.92,.77,.96,.70,400
  862. 12045 [131] .95,.92,.75,.96,.70,550
  863. 12050 [131] .95,.92,.75,.95,.65,700
  864. 12055 [131] .95,.92,.73,.95,.61,775
  865. 12060 [131] .94,.91,.73,.95,.57,850
  866. 12065 [131] .94,.91,.72,.95,.53,925
  867. 12070 [131] .93,.90,.72,.96,.49,1000
  868. 12075 [131] .93,.90,.70,.96,.45,1200
  869. 15000 [143] HEADING AND INSTRUCTION
  870. 15005 [153]"LOAD":[153]:[153]:[153]:[153]:[153]
  871. 15010 [153][163]10);"(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)"
  872. 15015 [153][163]10);"SGN  STAR TREK 84  +"
  873. 15020 [153][163]10);"(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR"
  874. 15025 [153]:[153]:[153]:[153]:[153]:[153]:[153]:[153]:[153]:[153]:[153][163]35);"M.O.":[129]L6[178]1[164]750:[130]L6
  875. 15030 [129]L6[178]1[164]2000:[130]L6:[153]"LOAD":[153]:[153]
  876. 15035 [153]" STAR TREK 84 IS A REVISED VERSION OF"
  877. 15040 [153]" 'SUPER STAR TREK' WRITTEN BY"
  878. 15045 [153]" DAVID AHL AND ROBERT LEEDOM."
  879. 15050 [153]" THESE REVISIONS HAVE BEEN MADE BY"
  880. 15055 [153]" MIKE OMOTANI, APRIL 1984.":[153]
  881. 15060 [153]" THIS PROGRAM HAS ADDED ON MORE"
  882. 15065 [153]" COMMANDS PLUS THE OPTION OF"
  883. 15068 [153]" DIFFERENT LEVELS OF PLAY AND THE"
  884. 15070 [153]" CHANCE TO REFIT THE STARSHIP"
  885. 15072 [153]" TO YOUR OWN SPECIFICATIONS. SOME"
  886. 15075 [153]" OF THE ORIGINAL COMMANDS HAVE BEEN"
  887. 15078 [153]" MODIFIED.":[153]
  888. 15080 [153]" BEFORE PLAYING THIS GAME IT IS"
  889. 15082 [153]" RECOMMENDED THAT YOU READ THE "
  890. 15084 [153]" INSTRUCTIONS GIVEN IN 'TREK 84 INSTR.'"
  891. 15086 [153]" (LOAD 'TREK 84 INSTR.' AND RUN "
  892. 15088 [153]" PROGRAM.)":[153]
  893. 15100 [141]9265
  894. 15105 [142]
  895. 18000 [143] KLINGON SPIES
  896. 18005 [153]"SECURITY REPORTS:":[153]"KLINGON SPIES HAVE INFILTRATED":[153]"ENGINEERING."
  897. 18008 [153]"DAMAGE CONTROL REPORT:":XX[178]0
  898. 18010 [129] KK[178]1[164]1000:[130]KK:[129]II[178]1[164]9:[139][187](.)[179].65[167]18020
  899. 18012 D(II)[178]D(II)[171]3[172][187](.)
  900. 18015 R1[178]II:[141]8790:[153]G2$;" SABOTAGED.":XX[178]1
  901. 18020 [130]II:[139]XX[178]0[167][153]"NO FURTHER DAMAGE."
  902. 18025 [153]"SPIES HAVE BEEN APPREHENDED.":[141]6000:[137]1990
  903. 18100 [143] ROMULAN ATTACK
  904. 18105 [153]"ATTACK BY ROMULAN VESSEL."
  905. 18110 RC[178][181](450[172][187](.)[170]1):S[178]S[171]RC:[153]RC;" UNIT HIT ON THE SHIELDS.":[141] 9895
  906. 18115 [141]10210:[139] S[179]0[167] 6220:[129] II[178]1 [164] 1500:[130]II:[139] [187](.)[177].5[167]18110
  907. 18120 [153]"ROMULAN VESSEL HAS LEFT THE SECTOR.":[137] 1990
  908. 18200 [143] ATTACK BY ORION PIRATES
  909. 18205 [153]"ATTACK BY 2 ORION PIRATES."
  910. 18210 OP[178][181](250[172][187](.)[170]1):[153]OP;" UNIT HIT ON SHIELDS":S[178]S[171]OP:[139]S[179]0[167]6220
  911. 18215 [141]9895:[141]10210:[129]II[178]1[164]2000:[130]II:[153]"PIRATE VESSEL HAS RETREATED."
  912. 18220 [137]1990
  913.